From: Stefan Monnier Date: Wed, 5 Nov 2003 15:24:08 +0000 (+0000) Subject: (XINT): Move the cast to clarify what is going on. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25056 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9c747de25a0dd2cdf51a1b6265e046ca1e6b4174;p=emacs.git (XINT): Move the cast to clarify what is going on. --- diff --git a/src/lisp.h b/src/lisp.h index df22444560b..8cacd349111 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -335,8 +335,8 @@ enum pvec_type /* Extract the value of a Lisp_Object as a signed integer. */ #ifndef XINT /* Some machines need to do this differently. */ -#define XINT(a) ((EMACS_INT) (((a) << (BITS_PER_EMACS_INT - VALBITS)) \ - >> (BITS_PER_EMACS_INT - VALBITS))) +#define XINT(a) ((((EMACS_INT) (a)) << (BITS_PER_EMACS_INT - VALBITS)) \ + >> (BITS_PER_EMACS_INT - VALBITS)) #endif /* Extract the value as an unsigned integer. This is a basis